﻿Partial Public Class PhotosPageOLD

    Public Sub New()

        ' This call is required by the Windows Form Designer.
        InitializeComponent()

        ' Add any initialization after the InitializeComponent() call.
        MyInitialize()
    End Sub

    Private Sub PhotosPage_Loaded(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs) Handles Me.Loaded
    End Sub
    Private Sub MyInitialize()
        VirtualEarthMapControl1.Connection = g_connection
        VirtualEarthMapControl1.AlbumManager = g_album_mgr
        VirtualEarthMapControl1.ShowControlsOnMap = False
        'AlbumSelectorControl1.Connection = g_connection
        'AlbumSelectorControl1.AlbumManager = g_album_mgr
        AlbumSelectorControl1.MapControl = VirtualEarthMapControl1
    End Sub

    Private Sub VirtualEarthMapControl1_PhotoClicked(ByVal VE_shapeid As String, ByVal row As System.Data.DataRow) Handles VirtualEarthMapControl1.PhotoClicked
        g_currentphoto.Row = row
        'MessageBox.Show("click: " & VE_shapeid)
    End Sub

    Private Sub VirtualEarthMapControl1_PhotoDoubleClicked(ByVal VE_shapeid As String, ByVal row As System.Data.DataRow) Handles VirtualEarthMapControl1.PhotoDoubleClicked
        'MessageBox.Show("doubleclick: " & VE_shapeid)
        ImageViewerForm.ShowFullImage(g_currentphoto.Row)
    End Sub

    'Private Sub btnPageUnderDevelopment_Click(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs) Handles btnPageUnderDevelopment.Click
    '    g_mainpage.ShowPage(EnumPage.ePhotos2)
    'End Sub
End Class
